home *** CD-ROM | disk | FTP | other *** search
- property appPath, generalPath
-
- on new me
- return me
- end
-
- on getPropertyDescriptionList me
- description = [:]
- addProp(description, #appPath, [#default: "none", #format: #string, #comment: "Pathname of the app the launch:"])
- return description
- end
-
- on mouseUp me
- if appPath <> "none" then
- open(the pathName & appPath)
- end if
- end
-